home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / D-Demos / (c)d2.d64 / srite boot.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  761b  |  22 lines
  1. 10 REM
  2. 15 REM  SPRITE EDITOR BOOT
  3. 20 REM
  4. 25 PRINT "[147]":POKE 53280,14:POKE 53281,6
  5. 30 PRINT"LOADING ...":GOSUB 100
  6. 40 PRINT "LOAD"CHR$(34)"SCROLL.DATA.D"CHR$(34)",8,1"
  7. 41 PRINT "NEW"
  8. 42 PRINT "LOAD"CHR$(34)"SPRITE EDITOR.D"CHR$(34)",8"
  9. 50 POKE 198,10
  10. 55 DATA 19,13,13,13,32,32,82,85,78,13
  11. 60 FOR I=1 TO 10:READ X:POKE 630+I,X:NEXT
  12. 70 POKE 44,64:POKE 16*1024,0:POKE 56,126:CLR:NEW
  13. 100 PRINT"          [146]     [146]     [146]  [146]      [146]     [146]
  14. 110 [153]"       WAIT     WAIT   WAIT  WAIT   WAIT  WAIT    WAIT    WAIT
  15. 120 PRINT"      [183][183][183] [146]  [146][183][183][183]  [146][183][183][181]  [146]    [146]    [146][183]
  16. 130 [153]"      USRUSRUSRUSR USR    USR  COS USR   USR   USRUSRUSRUSR
  17. 140 PRINT"          [146]     [146]  [146]      [146]     [146]     [146]
  18. 150 [153]"       WAIT     WAIT   WAIT  WAIT    WAIT    WAIT   WAIT  WAIT   WAIT
  19. 160 PRINT"       [146][183]    [146]   [146]  [146]    [146]    [146]   [146]  [146][183][183][181]
  20. 170 [153]"      USRUSRUSRUSR USRUSRUSRUSR USR   USR   USRUSRUSRUSR USR  COS
  21. 180 RETURN
  22.